FFFFFFFFFFEFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DDDDDDDDDDDD 

FFFFFFFFFFFFFFF DODDDDDDDDDDD 

FFF DDD DOD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFFFFFFFFFFF DDD DDD 
FRFEFFFFFFFFE DDD DDD 
FFFFERFFFFFF DDD DOD 
FFF DDD DDD 
FFF DOD DDD 
FFF DDD DDD 
FFF DDD DOD 
FFF DDD DDD 
FFF DDD DDD 
FFF DDDDDDDDPDDD 

FFF DDDDDDDDDDDD 

FFF DDDDDDDDDDDD 
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RTITLE = ‘VAX=11 FDL 

MODULE FDLGEN ( | 
ADD NAL = GENERAL ), 

TERNAL = GENERAL ), 
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BEGIN 


MASS EESSS£SLSES ESET TEES TST T TTT ESC EPEC ECCS SCTE TT TTT ceric iti taaci iit 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH T 
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® 

® 

i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. * 
® 

iw THE INFORMATION IN THIS SOFTWARE SUBJECT TO CHANGE WITHOUT NOTICE * 
ND SHOULD NOT . 

® 

® 

® 

® 

& 

® 

® 


ie A BE CONSTRUED COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


i® DIGITAL ASSUMES NO RESPONSIBILIT’ JR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NO SUPPLIED BY DIGITAL. 
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VAX=-11 FDL Utilities 
Callable routines 
FDLSSGEN_SPEC 

N_PRIMARY 

XAB 
CHECK_BLOCK 
FORMAT_LINE 
FIELD 
GUTPUT_LINE 


VAX/VMS Operating System 
Ken F Henderson Jr Creation Date 


Vv03-016 DASO001 David Solom 


on 
Don't generate DATA_FILL or INDEX_FILL s 


2 Dec 1982 


06 Jul 1984 
econdary's 


for the key primary if $XABALL's don't exist. 


v03-015 RRBOO1S Rowland R. Bradley 
Comment out or remove references 
ACLs and Erase_on_Delete 


v03-013 KFHOO12 Ken Henderson 
Fix generation of bits that have 
inverted sense when set: 
Data Key Comp, Data Rec Comp, 
Index Comp, and Block Span 


vO3-012 KFHOO11 Ken Henderson 
Fix generation of format=fixed. 


v03-011 KFHOO10 Ken Henderson 
Fixed calls to GET_VM and FREE_VM. 


v03-010 KFHOO09 Ken Henderson 
Fixed CHECK_XAB and FETCH 


iehee 
Check status of calls to CIB$ and SyYS$ 


phanges RU JNL bits 
Added DEFERRED_WRITE, ERASE_ON_DELETE 


v03-009 en Henderson 


KFHOOO8 K 
Enabled XABSC_IN& and XABS$C_BN8 


29 Feb 1984 


8 Oct 1983 


26 Sep 1983 


23 Aug 1983 


29 Jul 1983 


31 Jan 1983 
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23 32 


3 088 1! v03-008 hogy 4! en Henderson 

; > 3% ly stuff FDLSAS AREA_BKZ 7 not 
; 38 4 ina locating blocks 

; 093 1! V03=007 KFHO006 Ken Henderson 

: 95 0946 1! Fixed deallocatio on of file name 
: a8 844 ! } in FDOLSSCHECK_BLOCKS 

: 98 O97 1! v03-006 KFHO00S Ken Henderson 

: 106 944 : 4 ined ge deallocation of key names 
101 190 1 ee 

3 196 0 . es v03-005 KFHOO04 Ken Henderson 

; 10 36 1! Added alloc/dea tage of FDLSAB AREA_BZK 
: He O12 : to FDLSSCHECK_BLOCKS 

> 106 0105 1 | v03-004 KF 0003 Ken Henderson 

s 107 3198 .§ Fixed CHECK_XAB deallocation of 
; 108 010 1: KEYXABs and FDLSS$CHECK BLOCKS 

: 1% B98 ! deallocation Of NAM blocks 

: 111 6190 1} v03-003 kFH0002 Ken Henderson 

: ig ait} : Fixed broken branches 

: 114 8118 1/ v03-002 KFHOO01 n Henderson 

; 132 Bite : Finished IDENT, SYSTEM, POSITION 
: 117 0116 1 ieeee 
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X-11 ss- 
SKSVMSMASTE 
SBTTL  ‘FDLSS$GEN eect 
LOBAL ROUTINE FOCSSGEN_SPEC = 
Functional Description: 
THiS FOUTTME KXKKKKKKKKKKKK 
Calling Sequence: 
fdl$$gen_spec( fdl_string ) 
Input Parameters: 
fdl_desc - descriptor of the fdl file name string (required) 
file_name - descriptor file name to overide the name specified 
in the fdl file (optional) 


default_name - descriptor default file name to overide the default 
name specified in the fdl file (optional) 


flags - address of flags longword (optional) 
FOLSV_SIGNAL signal errors instead of returning 
FDOLSV_FDL_STRING input fdl-spec is a char string 
FDL$V_SCACLBACK used by EDF 
Implicit Inputs: 
none 


Output Parameters: 


result_name - gece toter to receive the fil* name which was created 
optiona 

fid_block - address of a 3 longword used block to receive the fid 
of the file created (optional) 

stmnt-num - address of longword to recivve statement 
number (optional) 

Implicit Outputs: 
none 


Routine Value: 
success or error code 


Side Effects: 
none 


: LONG 
LINE : REF BLOCK C FOLSC_SECBLK_SIZE ] FIELD (SECTAB_FIELDS); 
! Waste 23 bytes to create a buffer to hold the time 
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IME_TEMP ): 
ER J = TIME TEMP; 


T 
U POINT 
UF C DSCSWILENGTH J] = .BYTES; 


ow 


TE 
$F 
ME 
ME 
' See if the RMS control blocks are kosher ( DON'T DEALLOCATE THEM ) 
It also saves the addresses of any relevant XABs it finds 
It also saves the bucketsizes of any AREA XABs it finds 

LSAB_CTRL C FOLSV_DEALLOC J = CLEAR; 

LSSCRECK BL CKS (~.FDLSAB_GENFAB, .FOLSAB_GENRAB ); 


Generate the FDL primaries in their proper order 


GEN_PRIMARY ( FDLS$C_IDENT, 0, 0, 0); 
DL$C~SYSTEM, FOL$c_SOURCE, 


GEN-PRIMARY ( FDLSC— FDL$C_SOURCE, 0 ); 
GEN-PRIMARY ( FDLSC~FILE, FOLSC_FILE BEG, FDL SC FILE END, .XABPRO_PTR ); 
99 GER_ PRIMARY ( FDLST_ACL, FOLSC_ACL_BEG, FOLSC_ACL_END, .XABACL_PTR ); 
00 GEN_PRIMARY ( FDLSC_BATE, FOLSC_DATE BEG, FOLSC_DATE END, .XABDAT_PTR ); 
01 GEN_PRIMARY ( FDLSC_JNL L$C_JOURNAL_BEG, FDLSC_JOORNAL_END, .XABJNL_PTR ); 
0¢ GEN-PRIMARY ( FDLS$C~RECORD, FDCS$C_RECORD_BEG, FOLSC_RECORD_END, 0 ); | 
0 GEN-PRIMARY ( FDLSC-ACCESS, FDLSC-ACCESS-BEG, FDLSC-ACCESS 
04 GEN-PRIMARY ( FDLS$C-SHARING, FOLS$C_SHARING BEG, FDLSC_SHARING_END, 0 ); 
05 GEN-PRIMARY ( FDLSC_CONNECT, FDLSC~CONNECT_BEG, FDLS$C~CONNECT_END, 0 ); 
; 
0 UNTIL .XABALL_PTR EQLU 0 | 
BEGIN | 
GEN_PRIMARY ( FDLSC_AREA, FDLSC_AREA_BEG, FDL$C_AREA_END, .XABALL_PTR ); 


DO 
XABALL_PTR = .XABALL_PTR C XABSL_NXT J 


SOOON FMEWN—OOOnN 


UNTIL ¢ 
( .XABALL_PTR EQLU 0 ) | 
( .XABALL_PTR C XAB$SB_COD J EQLU XABSC_ALL )); | 
END; 
: Cycle through all the KEYs 
UNTIL .XABKEY_PTR EQLU 0 
BEGIN 
GEN_PRIMARY ( FDLSC_KEY, FOLSC_KEY_BEG, FDLSC_KEY_END, .XABKEY_PTR ); 
DO 
XABKEY_PTR = .XABKEY_PTR C XABSL_NXT J 
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L Utilities 
PEC 


UNTIL ( 

O eteates thie EQLU 0 ) 

( .XABKEY_PTR C XABS$B_COD J 
END; 

RETURN SS$_NORMAL; 

END; 


EQLU XABSC_KEY )); 
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44 45 57 52 
010E0004 
sat ae: 

00 44 45 5 
010E0003 
00000000' 

00 44 45 5 
010E000 
00000000' 

00 00 44 4 
010E000 
saat; aa ‘ 

00 44 57 5 
010E000 
00000000' 

00 00 44 57 
010E0002 
00000000' 

00 00 Be 5 
abies 

00 00 00 44 
He 

00 45 
ER 

00 00 18 
bias 

00 00 16 
fies 

00 00 ' $3 
ae 

00 00 ' 
308 


TITLE 4 be VAX-11 FDL Utilities 
-IDENT \Vv04-000\ 
-PSECT _FDLSPLIT,NOWRT,NOEXE, SHR, 
00000 P.AAB: .ASCII save 
00004 P.AAA: .LONG 17694724 
00008 -ADDRESS P.AAB 
QO00C P.AAD: .ASCII \WED\<0> 
ppoae P.AAC: .LONG 17694723 
0014 ADDRESS P.AAD 
00018 P.AAF: ASCII \RED\<0> 
QO01C P.AAE: .LONG 17694723 
Boose -ADDRESS P.AAF 
00024 P.AAH: .ASCII Ve <0><0> 
00028 P.AAG: .LONG 17694722 
0002C -ADDRESS P.AAH 
00030 P.AAJ: .ASCII \RWD\<0> 
te P.AAI: .LONG 17694723 
00038 -ADDRESS P.AAJ 
Q0003C P.AAL: .ASCII \WD\<0><0> 
00040 P.AAK: .LONG 17694722 
00044 -ADDRESS ashen 
9-94 P.AAN: .ASCII \RD\<0><0> 
004C P.AAM: .LONG 17694722 
iF «ADDRESS P.AAN 
0054 P.AAP: .ASCII \D\<0><0><0> 
0058 P.AAO: .LONG 17694721 
005C¢ ~ADDRE ~ AAP 
060 P.AAR: .ASCII \RWE\<0> 
ve) P.AAQ: LONG 769472 
ADDRESS P.AAR 
$6 P.AAT: .ASCII 1¥E 593 50> 
P.AAS: .LONG 94722 
74 ADDRESS P.AAT 
78 P.AAV: .ASCII 1RE 593 50> 
7C P.AAU: .LONG 7694722 
- ADDRE AAV 
P.AAX: .ASCII V5 <92.<9><0> 
P.AAW: .LONG 4721 
ADDRESS P.AAX 
P.AAZ: .ASCII Vey <¥a<0> 
94 P.AAY: .LONG 17694722 
98 -ADDRESS P.AAZ 


Pe Se Se Se Se Be Se Se Se Be Be Se Se Se Ge Se Ge Ge Se Ge Be Ge Se Be Be Be Se Be Be Se Se Se Be Se Be Se Be 


8. 
(4), 


Bete Se Se Se Se Se Se Se Se Se Re ae 
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13 
VAX=11 FDL Utilities 16- 900-1882 95:3] 298 


“11 Bliss- 
FDLSSGEN_SPEC Bliss-32_V 


x 4.0-7 
SKSVMSMASTER: coi. sae FDLGEN.B32; "ae 


v0o-600 


01 


01 


00034 
00038 
0003¢ 
00040 
00044 


00048 
0004C 


00050 
00054 
00058 
0005C 
00060 
00064 


-PSECT 


TEMP_DESC: 
.B 
8B 

FAO_DESC: 

TIME_BUF : 
8B 


-B 
TIME_TEMP: 
-BL 


~BL 
FAO_LENGTH: 
FAO_PARAM: 
-BLK 
FAO_PARAM2 : 
-BLK 
FAO_PARAM3: 
BLK 
FAO_PARAMG : 
-BLK 
STRBYTES: 
BLK 


OCHAR: -BLKB 
KABPRO_PIR: | 


.BL 
XABRDT_PTR: 
BLK 
XABDAT_PTR: 
BLK 
XABJNL_PTR: 
BLK 
XABALL_PTR: 
XABKEY_PTR: 
SAVE_POINTER: 


00 00 00 57 9C P. nee 
4 98 1 AO P.A 1 
0 . AG ADDRESS ey 

00 00 AB P.ABD: .ASCII \R\<0><0><0 
4 00 a P.ABC: .LONG 1769472 

0000000' Bey PASE -ADDRESS P.ABD 

91960008 00B4 P.ABE: .LONG 7694720 
00000000° 00088 ADDRESS P.ABF 


_FDLSOWN,NOEXE, PIC,2 


es ™ = ™— »= &™— 
=) i=) ws 
—_ _ =" 


w 


a PF PF PF PF PF SF SH SF SF PF FF SF =H FO F=—0 F=-—0 


00000000" 00000000' 00000000' 00000000" 00000000" 00000000 00068 PROT_VALUES: 
ETE P.AAA, P.AAC, P.AAE, P.AAG, P.AAI, 
00000000° 00000000" 00000000° 00000000’ 00000000° 00000000' 00080 P.A 


AK, P.AAM, P.AAO, P.AAQ, P.AAS, P. AAU, - 


9 
(4) 


FO 


VAX=11 FDL Utilities 
FDLSSGEN_SPEC 


00000000" 00000000" 00000000" 00000000' 00098 


voc=600 


5 9000 ae * 00000 
7 00000000" 00 9¢ 00009 

56 17 00 0001 

00 6€ 09 ec 0001 
BC OA 18 
B8 A? BC aA? 9 1A 
4 A? 56 1F 
000000006 00 A 3 
000000006 DD A 

000000006 DC 000 
00000000v 00 “ re 3 
7 C 00040 
7E 09 7D 00042 


71986 92:31:18 


P.AAW, P.AAY, P.%6A, P.ABC, P.ABE 


VAX-11 Bliss-32 V4.0-7 


~EXTRN SYS$FAQ, yer sSase IM 

-EXTRN LIBSGET_VM, LIBSEREE 

-EXTRN STRSAPP PEND DESSFREE. vn 

“EXTRN FDLS$READ_ER RRon 

-EXTRN FDLSS$RMS_OPEN ERROR 

-EXTRN FDLSAB_PRI_TABLE 

-EXTRN FDLSAB_SEC_ 

-EXTRN FDLSAB_OUT_STRING 

-EXTRN FDLSAB_GENFAB rose GENRAB 

-EXTRN FDLSAB-FDL_RAB, FDLSAB_CTRL 

-EXTRN FDLSAB_BLOCK Bn’ 

-EXTRN FDLSAB_AREA_BK 

-EXTRN FDLSGL_INVBCK_PTR 

-EXTRN FOLSGL-STNUMPT 

-EXTRN FOLSGL-MAXLINE, FOLSGL_SECNUM 

~EXTRN FDLSGL~ =PRIRARY FDL$GL_PRINUM 

-EXTRN FDLSGL~SECONDARY 

-EXTRN FDLSAB_FDL STR ING 

~EXTRN FDLSAB LINE FDLSAB_UPCASED 

“EXTRN FDLSAB— KEY Y_ TABLE 

-EXTRN FDLSAB_STATE_ TABLE 

-EXTRN FDLSAB_TPARSE_BLOCK 

~EXTRN FDLS ofKCIUITY, FDLS_FAO_MAX 

-EXTRN FDLS_ABKW ABPRIKw 

-EXTRN FDLS-CREATE “FCS. CREATED 

-EXTRN FDLS_CREAT 

-EXTRN FDLS_FDLERROR, MDLS ILL_ARG 

-EXTRN FDLS_INSVIRMEM, FOLS_INUBLK 

-EXTRN FDOLS_INVDATIM, FOL$_MULPRI 

“EXTRN FDLS$-MULSEC, FDL$ NOQUAL 

-EXTRN FDLS$-NULLPRI, FOLS_OPENFDL 
XTRN FDLS-OUTORDER, FOLS_OPENOUT 

-EXTRN FDLS_WRITEERR, FDLS$_READERR 

“EXTRN FDLS"RFLOC, FOLS$_TITLE 

-EXTRN FDLS_SYNTAX, FOLS_VALPRI 
-EXTRN FDLS_UNQUAKW, FDLS_UNPRIKW 
-EXTRN FDLS_UNSECKW, FDLS_WARNING 

-PSECT _FDLSCODE,NOWRT, SHR, PIC,2 

-ENTRY FDLSSGEN_SPEC, Save R2,R3,R4,R5,R6,R7,R8 

MOVAB GEN PRIMARY, R8 

BOVAB XABALL_PTR, R7 


10. “(SP), #0, BYTES, TIME_TEMP 


MOVCS 

MOVAB TIME g TEMP TIME_BUF +4 
VW BYTES IME _BU 

BICB2 2 fol SAB CTRL+2 

PUSHL FOL $B NRAB 

PUSHL  FDLSAB ae 

CALLS #2 recs CHECK BLOCKS 

€LRL FAG. 


($ - 
MOVQ "9, - (SP) 


DISKSVMSMASTER:CFDL. SRC FDLGEN.B32; if? 


FO 
va 


K 13 
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10%°600 FDLS$GEN_SPEC 13=808- 1382 9}: 1:98 NTEKSVMGHASTERSCYDL SRCTFDLGEN.B32;1 0 6a) | 
68 04 fe 43 CALLS #4 GEN_PRIMARY ; sna : 
7E 95 8F 9A 0006A MOVZBL #149, =(SP) ; | : 
7E 95 BF 9A 0004 MOVZBL #149. =(SP) : | ; 
— OD 3 PUSHL # : : 
68 4 FB CALLS #4, GEN_PRIMARY : ; 
FO A? DD 00057 PUSHL  XABPRO_PTR > 1017, : 
7E be a A 0005A MOVZBL #111, =(SP) : ; 
7E 48 BF 9A Oo MOVZBL #72, =(SP) : | ; 
08 DD 0006 PUSHL : | F 
68 4 FB 00064 CALLS #4, GEN PRIMARY : | ; 
£8 A? 0D 9067 PUSHL XABDAT_PTR + 1019) ; 
7E 47 BF OA A MOVZBL #71, -TSP) ; : 
7E 44 BF 9A OO6E MOVZBL #68, (SP) : ; 
07 DD 000 PUSHL # ; | : 
68 04 FB 00074 CALLS #4, GEN_PRIMARY : ; 
FC A? DD 00077 PUSHL  XABJNL_PTR ; 1020 : 
7E 76 BF 9A 0007A MOVZBL aig, =(SP) : : 
7E 70 8F 9A O07 MOVZBL #112. -(SP) : | ; 
0A DD 0008 PUSHL #10 : ; 
68 04 FB 00084 CALLS #4, GEN_PRIMARY : : 
7E 04 00087 CLRL. 0s = ( §P) + 1021 j 
7E 8C BF 9A 60089 MOVZBL #140, -(SP) : : 
7E 88 BF 9A 0008D MOVZBL #136. -(SP) : 3 
0C DD 00091 PUSHL #1 : ; 
68 04 FB 00093 CALLS #4, GEN_PRIMARY : ; 
7E 07 7D 00096 MOVO #7. =(SP) ; 1022 | F 
01 DD 00099 PUSHL : F 
01 DD 00098 PUSHL #1 : ; 
68 04 FB 0009D CALLS #4, GEN_PRIMARY : : 
7E D4 OOOA0 CLRL. 0s = (§P) : 1023 ; 
7E 93 BF 9A 000A2 MOVZBL #147, -(SP) : ; 
7E 8D BF 9A D00A6 MOVZBL #141. -(SP) : : 
OD DD OOOAA PUSHL #1 : ; 
68 04 FB OOOAC CALLS #4, GEN_PRIMARY : ; 
7E D4 OOOAF CLRL = + 1024 : 
7E 43 BF OA 90081 MOVZBL us7, -(SP) : ; 
23 DD 00085 PUSHL #35 : 3 
06 DD 00087 PUSHL #6 ; ; 
68 04 FB 00089 CALLS #4, GEN PRIMARY : | : 
52 67 dO 000BC MOVL § XABALL_PTR, R2 > 1028 ; 
2 D5 OOOBF 1$:  —-«TSTL~—sR? : | : 
1€ 13 000C1 BEQL © 3$ ; : 
DD 90¢ PUSHL Re : 1032 : 
DD 000C PUSHL #34 ; : 
: DD 000C PUSHL #27 ; ; 
05 DD 000C9 PUSHL # ; : 
48 04 FB 000CB CALLS #4, GEN PRIMARY ; 3 
3 67 D Oct MOVL §XABALL_PTR, R : 1036 ; 
6 04 Ag D Di 2$ MOVL 4(R2),~XABALL_PTR ; | : 
52 67 00 00005 MOVL § XABALL_PTR, R2 : 1039 : 
—e5 1 08 BEQL 1$ 3 s 
14 62 91 DA CMPB ss (R2), «#20 > 1041 3 
F 19 DD BNEQ § ; : 
oe 1 OF BRB 4 ; 1028 ; 
52 06 =A 09 £1 3$: MOVL § XABKEY_PTR, R2 > 1047 | : 
52 D5 OO0ES 4$: TSTL = RR : ; 


BiH 


; Routine Size: 


VAX=11 FOL Utilities 


FDLSSGEN_SPEC 


274 bytes, 


04 


— VPVoe saw 
ww ~eNrROoO Mmm 


50 


Routine Base: 


18-50 Sep-1 VAX-11 Bliss-32 V4.0=-74 Page 12) 
1 a o}: $i 8 NT EKSVMEMASTERSCIDL SRCTFOLGEN.832;1 . (4) | 
5 13 00067 BEQL 6$ : | 
2 DD 000E9 PUSHL Re + 1051) 
87 F 9A OOOEB MOVZBL #135, -(SP) : 
7 8F 9A OOOEF MOVZBL ai 9; =(SP) : 
B dD Sor PUSHL ; | 
4 fe OF CALLS At GENS aa i : 
04 AZ DdO 000F MOVL § XABKE R2 + 1055. 
04 A DO OOOFC 5$ MOVL MRO a4. m. PTR : 
04 A 0 0101 MOVL XABKEY_PTR, R2 ; 1058 
D 1 0105 BEQL 4 3 
62 91 00107 CMPB Ss (2), #21 + 1060 
F le 010A BNEQ 5$ ; 
) 1 10C BRB 4$ : 1047 
01 DO O010E 6$ MOVL #1, RO + 1064 
04 00111 RET + 1066 
_FDLSCODE + 0000 
| 
| 
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VAX=-11 FDL Utilities 16-Se 
GEN_PRIMARY 14-Se 


ZSBTTL. ‘GEN PRIMARY' 
ROUTINE GEN_PRIMARY ( WHICH : LONG, BEG : LONG, GEB : LONG, XAB_PTR : LONG ) = 


3 
ge } 


=" 
[=] 
oa 
~ 


Functional Description: 

TRIS POUTTME KKK KKK 
Calling Sequence: 

fdl$$gen_line( fdl string ) 
Input Parameters: 


sO 00 09 09 00 09 09 09 09 09 09 SIN SIN NINN NNO OO 


jololelelolelololololeoleloleleleololelelololololololo! 
AMAR WN SO ODNOUS WN HO CONOAU' FW OOO 


fdl_desc - descriptor of the fdl file name string (required) 
file_name - descriptor file name to overide the name specified 
in the fdl file (optional) 
default_name - descriptor default file name to overide the default 
name specified in the fdl file (optional) 
flags - address of flags longword (optional) 
FDLSV_SIGNAL signal errors instead of returning 
FDOLSV_FDL_STRING input fdl-spec is a char string 
, FDL$V_SCACLBACK used by EDF 
9 Implicit Inputs: 
; none 
; Output Parameters: 
result_name - descriptor to receive the file name which was created 
(optional) 
fid_block - address of a 3 longword used block to receive the fid 


of the file created (optional) 


stmnt-num - address of longword to recieve statement 
number (optional) 


SSSSSS3SSS 
MEWN—OOOn 
PIPPIN NY a at st st at at nt nt nt rt st tt kt st tk at tt ht) ht tt tt 


Implicit Outputs: 
none 


: LONG 
XAB : REF BLOCK : BYTE J 
PL INE : REF BLOCK C FOLSC_PRIBLK_SIZE ] FIELD (PRITAB_FIELDS), 


me ea ee ek a ee ed ed dd od dd dd dd od wd od od 


a a a ed td td od od = I I OHOOOVOO 


07 

4 Routine Value: 

19 success or error code 
\¢ Side Effects: 

1 none 

14 

15 -= 

i 

1 BEGIN 

15 

1 OCAL 

20 TEMP_BYTE : BYTE, 
23 BOF F : 


1984 01:41:0 VAX-11 Bliss-32_V4.0-74 Pa 1 
at 7 93351 :98 DL SKSVMSMASTERSCFDL SRCIFDLGEN.B32; 1 (5) | 


FOLGEN VAX=11 FOL yltilitios 1-$2p-19 4 t 91: $1: 09 VAX-11 Bliss-32 V4.0 Page 14 
GEN_PRIMARY 14-Sep-1984 DISKSVMSMASTER: CFOL. She FDOLGEN.B32;1 (5). 

108 LINE : REF BLOCK C FOLSC_SECBLK_SIZE J FIELD (SECTAB_FIELDS); | 
tbs Setup the xab pointer | 


FOLSAB_ BLOCK BLK C FDLSC_XAB J = .XAB_PTR; 
FDLSGL_PRIMARY = .WHICH; | 
} Point to the record which describe this primary attribute | 
PLINE = ( FDLSAB_PRI_TABLE + (.FDLSGL_PRIMARY * FDLSC_PRIBLK_SIZE * 4) ); | 
! Setup the AREA number or KEY number | 
IF .PLINE C FDLS$V_NUM_ATTACH J 

BEGIN 


| 
BOFF = .PLINE C F FDLSV PRI_BOFF 3: 
FDLSGL_PRINUM = .XAB [ .BOFF,0,8,0 ); 

| 


The following is a list of all the reasons why not to output this 
particular primary attribute 


WN $9 OONOUES WN OOOO USWWN—O 


null table entry 
no date xab 
no journal xab 


at ot ot ot ot at ot ot oF ot ot at at at ot eee 
pat Ry tee CR oN thes th a tte Nall! Ooo ey 


a a me ee ee ed ed ed od ed od dd 
ee ee ee ee ee ed ed td od wd 
DN N SNNSNP AA AAPA AA AD MIU BB BB BEE BE EWAN AWIIioponononorp 
SOOWNA NEW $0 OONA UE WWN 0 ODNAU EWN OO OD NAME WW OC DODNOAUNE WR (OO ONOUL 
PAA AA AAA AAAI DISNID NID SID BS UIE UE POPP NININIPI PUP PI IWIN POPONONoNonononononononononnd 


Be Se Se Se Se Se Se Se Se Fe Ge Se Ge Se Ge Ge Ge Se Ge Se Fe Ge Fe Ge Fe Fe Ge Ge Ge Se Fe Ge Se HSH SH Ss Se FHS Se Se Se Oe Se ae SHS HSH Se Oe Se Se Se esas 


' 
i 
i 
i 
i 
' | 
H not ah; fullgen and primary = connect or sharing or access 
? if ( 
4 (-PLINE { FOLSV_PRI_FAO ) EQLU 0 ) 
| 
460 i -FDLSGL_PRIMARY EQLU FDLSC_DATE ) AND ( .XABDAT_PTR EQLU 0 )) 
ase i -FDLSGL_PRIMARY EQLU FDLSC_JNL ) AND ( .XABJNL_PTR EQLU 0 )) 
bas C 
469 ( -FDLSGL_PRIMARY EQLU FDLSC_CONNECT ) | 
“7 ( -FDLEGL_PRIMARY EQLU FOLSC_SHARING ) | 
449 ( .FOLSGL_PRIMARY EQLU FDLSC_ACCESS ) 
450 ) AND NOT -FOCSAB_CTRL C FOLSV_FOLLGEN J] ) 
451 )) THEN 
43 BEGIN 
454 IF .FDLSGL_PRIMARY NEQU FDOLSC_IDENT 
455 THEN 
$26 Output a blank Line 
438 FDLSSOUTPUT_LINE ( -1 ); 
ro Format and output the Primary Attribute Line 
462 TEMP_BYTE = ..PLINE C FDLSV_PRI_FAO J; 


Be Be Oe Be Se Se Se Se Be Se Be Se Se Be Se Se Se Se Se Se Se FH Se Se FF Ge SH Se Se Se Se Se Se Se Oe Be FF Se Se SH Se He SESE SHES SH Se Se Se Se Se Se Se ee teas 


VAX-11 FDL Utilities Ta - 1: VAX-11 Bliss-32 V Page 15) 
GEN_PRIMARY sth’ Fb 9g Peek dwBAAS eRe choo skeSrocew.ase;1 2 3) 
: 463 1181 FAO_DESC [ DSC$W_LENGTH ] = .TEMP_BYTE; 
; 466 i : FAO-DESC £ DSCSA-POINTER J] = TBLIRE “fou sv_pri_FAO J +1; 
: 46 1184 IF_.FDLSGL_PRIMARY EQLU FDLSC_IDENT 
: 46 1185 THEN 
: 468 11 § 4 BEGIN 
: 469 11 4 
; 470 1188 4 RET_ON ERROR ( Nhe ASCTIM (¢ TIME_BUF,0,0 )); 
> 471 1189 4 TIME_BOF C DSCS$W_LENGTH J = 20; | 
: 47 1190 4 | 
; 47 1191 END; 
> 474 1136 
3; 475 P 119 RET_ON_ERROR 
; 476 1194 RF ESPAO. C ( FAO Esc. FAQ_LENGTH, — LINE, .FDLSGL_PRINUM,TIME_SUF )); 
; oof 1139 FDLSSOUTPUT_LINE ( .FAO_LENGTH 
: 479 1197 IF .FDLSGL_PRIMARY EQLU i8¢ thei 
: 480 1198 THEN 
; 481 1199 RETURN SS$_NORMAL; 
: 48 1590 3 
: rt : 4 H Cycle through the secondary attributes 
: 485 1308 3 INCR SEC FROM .BEG TO .GEB | 
> 486 1204 3 DO 
: 487 1205 4 BEGIN 
: 488 1206 4 
: 489 1207 4 ' Skip it if this is a null table entry 
: 490 1208 4 ! (which means we don't Lprcecese it - baty «Sor does) 
: 22) iso) ? Also skip it if the RMS block we need doesn't exist 
; rh 1311 ? LINE = ( FDLSAB_SEC_TABLE + (.SEC * FDLSC_SECBLK_SIZE * 4) ); 
3: 495 1543 4 ' FILE REVISION is a special cas 
: 496 1214 4 ' We have to ine tn the XABROT. if it exists 
3 rp 44 1$12 ? whereas FILE had used XABPRO previously 
: 499 1217 4 IF .SEC EQLU FDLSC_REVISN 
; 500 1218 4 THEN 
3 ep Hf $4 4 : FDLSAB_BLOCK_BLK C FOLSC_XAB ] = .XABRDT_PTR; 
; 208 1221 4 ! The following is a List of conditions to be satisfied 
3 pe Iss¢ 2 : in order to put this secondary out | 
; 208 1294 4 ' table entry is not null 
3 1225 4 ! pointe: to relevent RMS control block is not 0 
: 308 Iss¢ 4 : ye! re doing a gen. or the full-only bit is clear | 
: 509 1 4 ! if this ier of WH l or dfill secondary to the key primary, 
: 310 1228 4 : an xaball exists | 
: 511 1229 4 ! 
: \¢ 1230 5 IF ( 
; 1231 g ( .LINE C FDLSV_SEC_FAO ) NEQU 0 ) 
3 ale 1536 AND 
: 15 ; é { pFOLSAB_BLOCK_BLK C .LINE C FOLSV_BLK_TYPE ) ) NEQU 0 ) 
; i$ 1255 g (( .FDLSAB_CTRL C FOLSV_FULLGEN J] ) OR ( NOT .LINE C FDLSV_FULL_ONLY ] )) 
3 a8 1 § AND 
3 1G 1 6 NOT ( 


| 
| 
| 
‘Sou 
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Ox 500 GEN_PRIMARY 12-808- 1382 9323) 598 NT EKSVMEMASTER CPDL SRCTFOLGEN.832;1 ’ 3 v0 
09 1 D4 7B 6$: CMPL R1, #9 : 1172) 
6 1 7 BEQL «6s 7$ : 
7E | oo MNEGL #1, (SP) : 1176) 
$6 1 FB CALLS #1, FDLS$OUTPUT_LINE : | 
00 83 3 7$ MOVB @0(PLINE), TEMP~BYTE + 1180. 
FBG B A mOVZBW MP_BYTE, FAO_DBESC : 1181, 
FC AG 6 01 C1 5 ADDL , TPLINE), FRO _DESC+4 + 1182 | 
0 63 D1 CMPL  FDLSGL_PRIMARY, #9 > 1186 | 
13 12 3 BNEQ $ : | 
7E 7¢ 009 CLRQ = = (SP) + 1188 | 
+ v4 o3¢ Cra tsp) : | 
000000006 00 04 FB 8 3 CALLS #4, SYSSASCTIM : 
1A 0 €9 OOOA BLBC STATUS ; 
64 14 60 000A8 MOVW #20, TIME_BUF : 1189 
54 DD O00AB 8$ PUSHL R4 + 1194 
68 pp OOAD PUSHL FDLS$GL_PRINUM : 
000000006 00 9F OOOAF PUSHAB FDLS$AB~LINE ; 
20 AG OOF 0085 PUSHAB FAO_LENGTH : | 
F8 AG OF 000BB PUSHAB FAO-DESC ; 
000000006 00 05 FB 9008 CALLS #5, SYSS$FAO ; 
7¢ 50 €9 000C2 9$ LBC = STATUS, 17$ ; 
20 A& DD 000¢ PUSHL FAO_LENGTH > 1195 
66 01 FB Shore CALLS #1, FDLSSOUTPUT_LINE é 
09 65 01 00¢B CMPL = FDLS$GL_PRIMARY, #9 + 1197 
6E 13 0 OcE BEQL 16$ ; 
52 08 Ac 01 ¢3 0000 SUBL3. #1, BEG, SEC + 1203) 
62 11 00005 BRB 15$ ; 
50 52 OC C5 00007 10$:  MULL3 #12, SEC, RO + 1211 
53 0000000060040 9€ 0008 MOVAB FDL$AB SEC _TABLECROJ, LINE ; 
00000067 = &F 52 01 O00E CMPL SEC, #70 : 1217 
04 if OOEA BNEG 118 : 
67 40 A& DO OODEC MOVL § XABRDT_PTR, FDLS$AB_BLOCK_BLK+8 + 1219 
63 D3 O00FO 11$:  TSTL (LINE) + 1231 
45 13 000F2 BEQL 15$ : 
50 07 A3 9A 000F4 MOVZBL 7(LINE), RO : 1233 
F8 A740 DS 000F8 TSTL  FDL$AB_BLOCK_BLKCRO) ; 
3B 13 OO0FC BEQL 15$ ; 
04 000000006 00 04 £0 OOOFE BBS #4, FOLSAB_CTRL+42, 12$ > 1235 
Hi 04 a3 f 0196 BLBS  4(LINE) ; 
a 65 01 0010A 128:  CMPL  FDLSGL_PRIMARY, #11 : 1238 
17 12 0010 BNEQ 14$ ; 
0000007F = 8F 38 D1 0010F CMPL SEC. #127 > 1239 
Q 13 116 BEQL 138 ; 
00000079 =F : D1 0011 CMPL SEC, #121 : | 
05 12 OO11F BNEQ 14$ ; 
4C Ae 05 00121 13$:  TSTL  XABALL_PTR + 1240 
13 13 00124 BEQL 15$ : 
000000006 00 52 00 00106 14%: MOVL SEC, FDLS$GL_ SECONDARY > 1245 
00000000v 00 Q FB 00120 CALLS #0, FDLSSFORMAT_LINE > 1246 
DD 001 PUSHL RO : 
01 FB 001 CALLS #1, FOLSSOUTPUT_LINE ; 
99 Oc AC F3 00139 15$:  AOBLEQ GEA, SEC, 10$ > 1203 
01 p 1 f 168: MOVL #1, R > 1054 
4 00141 17$: = RET : 1256 
; Routine Size: 322 bytes, Routine Base: _FDLSCODE + 0112 
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vone FDLSSFORMAT_LINE 12286871382 95591:98 DLSKSVMSMASTERSCFDL SRCSFDLGEN.B32; 1 . (6) 

; 540 1257 1 XSBTTL ‘FDOLSSFORMAT LINE’ ; 
> 941 1 1 GLOBAL ROUTINE FDLSSFORMAT_LINE = ; 
; 4 1 1 44 . 
P 4 1260 1! ° 
> 544 1261 1 ! Functional Description: : 
> 545 1 2 1! : 
5 rk 1265 1! THIS FOUTTME KAKKKKKKKK KKK ° 
; 54 1264 1! : 
; re 1265 1 ! Calling Sequence: | ; 
: 549 1266 1! : 
; $550 1267 1! fdl$$gen_line( fdl string ) : 
; 22! 1268 1 | | : 
3 ¢ 1269 1 ! Input Parameters: | : 
, 22 1270 1! | : 
> 354 lark fdl_desc - descriptor of the fdl file name string (required) ; 
3; 329 i576 1} file_name - descriptor file name to overide the name specified ‘ 
; 556 1273 1! in the fdl file (optional) ; 
$ 9e0 1274 1! default_name - descriptor default file name to overide the default ; 
: 228 \$?? : name specified in the fdl file (optional) ; 
; 560 1277 1! flags - address of flags longword (optional) : : 
; 561 1278 1! FDLSV_SIGNAL signal errors instead of returning | ; 
3 206 if 444 1! FDOLSV_FDL_STRING input fdl-spec is a char string : 
; 56 1280 1! FDLS$V_S$CACLBACK used by EDF : 
; 564 1281 1! : 
; 565 1e8¢ 1 ! Implicit Inputs: : 
; 566 1285 1! none : 
; 567 1284 1! $ 
; 568 1285 1 ! Output Parameters: . 
; 569 1286 1! | 3 
; of 1287 1! result_name - descriptor to receive the file name which was created ; 
s 20) 1288 1! (optional) 3 
3 36 1289 1! fid_block - address of a 3 longword used block to receive the fid ; 
3 af? 344 ! } of the file created (optional) ; 
; 575 1936 1} stmnt-num - address of longword to recieve statement : 
: 576 1295 1! number (optional) 3 
, Dee 1294 1! | 3 
; 578 1295 1 ! Implicit Outputs: : 
; 579 1296 1! none : 
; 580 1297 1! | 3 
oe.) 1298 1 ! Routine Value: : 
H 286 1299 1! 3 
3 + ¥4 1 69 1! success or error code : 
oe 1301 1! : 
; 585 1306 1! Side Effects: : 
; 586 1303 1! none : 
; 587 1304 1! : 
; 588 1305 1 !-- : 
: 590 130 BEGIN : 
; 591 1308 : 
; 236 1309 LOCAL ; 
; 1310 TEMP_BYTE : BYTE, : 
; 594 1311 STATOS : LONG : 
; 44 a LINE : REF BLOCK C FOLSC_SECBLK_SIZE J] FIELD (SECTAB_FIELDS); : 


z 
< 
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FORMAT_LINE 14-Sep-1984 12:31: DISKSVMSMASTER: CFDL.SRCJFDLGEN.B32;1 (6 


! Get the offset into the table 

! This is done here (as well as in FOLSSGEN_SPEC) because EDF can 

; call FDLSSFORMAT_LINE directly 

LINE = ( FDLSAB_SEC_TABLE + (.FDLSGL_SECONDARY * FDLSC_SECBLK_SIZE * 4) ); 


| If it's "PROLOG, skip it unless it's KEY 0 


ee 


if ( 
( ,FDLSGL_SECONDARY EQLU FDLSC_PROL ) 
( ,FDOLSGL_PRINUM NEQU 0 ) 

RETURN 0; | 


Construct a descriptor: get fhe length from the ASCIC, then the Address 
TEMP_BYTE = ..LINE C FDL$V_SEC_FAO ); 


PAAAAA GO 


BLK 
FAO_CHAR : REF VECTOR C ,BYTE 3; 
BLK = -FDLSAB BLOCK BLK C FOLSC_XAB J; 


FDLSGL_SECNUM = . 

, Get the value for the Line 
FETCH_FIELD ( .LINE ); 

; Put the formatted text into it | 


RET_ON_ERROR ( | 
SYSSFAO ( FAO_DESC,FAO_LENGTH,FOLSAB_LINE,.FAO_PARAM )); 


Stuff the ‘'n’’ in the "'SEGn_XXxX"’ Line 


FAO_CHAR = .FDLSAB_LINE C DSCSA_POINTER J; 
FAO_-CHAR C 4 J = .FOLSGL_SECNUM™+ '0'; 


: Look ahead to see if there are any more segments 
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10 
1 
i 
15 FAO_BESC C DSC$W_LENGTH ] = . TEMP BYTE; 
16 FAO-DESC C DSCS$A-POINTER J} = .LINE C FOLSV_SEC_FAO J + 1; | 
e183 } If it's a "‘SEGn_XXX"’ secondary, loop thru up to 8 times 
620 if ( 
621 (. -FDLSGL_SECONDARY EQLU FDLSC_SEGLEN ) 
6 ‘ ( .FDLSGL_SECONDARY EQLU FDLSC_SEGPOS ) | 
624 ) THEN | 
625 BEGIN 
626 
627 INCR J FROM 0 TO 7 
628 DO 
629 BEGIN | 
630 
631 LOCAL 
632 : REF BLOCK C ,BYTE J 
63 
634 
635 
636 
6 
6 
6 
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1062500 YOLSSFORRAT LINE = 1828671 382 93331:98 DISK SVMSMASTERSCI DL SRCTFDLGEN.B32; 1 b) 
; é 3 } re IF (CASE (.J+1) FROM 1 TO 8 OF : 
: 6 6 137 1 BLK f XABSB S12] J; | ; 
: 6 1374 ; “BLK [ XABSB7S1 : : | : 
: 6 : 1375 : :BLK € XAB$B-SIZ3 J: | ; 
5 § 1 8 4]: .BLK | KABSB_SIZ4 J; ‘ 
: 660 137 5}: :BLK { XAB$B7SIZ5 3: | ; 
: 661 1 £8 6 ‘BLK £ XABSB-$126 J ; 
; 66¢ 19 go: gk C xaBs8-S127 3; | 
> 664 1381 4 TES) EQLU 0 ; 
; 665 1 ¢ 4 THEN : 
> 666 1 4 EXITLOOP 3 
: Of laze? ELS — } 
3 o38 ' 5 ? If there is more, ‘'PUT'’ this one before looping : 
; 670 1 7 4 FDLSSOUTPUT_LINE ( .FAO_LENGTH ); ; 
: 671 1388 4 : 
; O76 1 34 ; END; ; 
: 67 1390 END ; 
: 674 1391 ELSE | : 
Pi as ten 7 
: ort 1338 Get the value for the Line : 
: 679 1396 ; if FETCH_FIELD ( .LINE ) | ; 
: Sat 1398 & MENBEGIN | : 
: re F 4 ? Put the formatted text into it : 
; 684 P 1401 4 RET_ON_ERROR ( SYSSFAQ ( 
> 686 P 1208 4 FAO-LENGTH 
> 687 P1404 4 FDLSAB_LINE, ; 
; 688 P1405 4 .FAO_PAR | 
BB BBs ate all 
: 691 1408 4 “FAO_PARAM4 ’)) ; | ' 
: 69 1410 4 IF .LINE C FDLS$V_DATA_TYPE ] EQLU FDLSC_STRING | 3 
: $38 i412 3 THEN BEGIN | : 
; 696 1418 3 LOCAL STATUS; | : 
; 698 1415 : IF NOT ( STATUS = LIBSFREE_VM ( STRBYTES, OCHAR )) | : 
; $60 1417 5 SIGNAL_STOP ( .STATUS ); | : 
> 701 1418 4 ND; | 3 
: 70 1419 4 | : 
: OG 1031 3 - | 
; 705 14 é FAO_LENGTH = 0; ; 
5 r8 14 : 
: 70 1424 END; 3 
: 708 1425 
: 709 1426 RETURN .FAO_LENGTH; 3 
> 710 14 ; 


; 1258 | 
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; Routine Size: 
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00000000v 00 
9 54 


301 bytes, 


000000006 00 
0D 
000000006 00 


50 


Routine Base: 


1b-5¢ Sep-1984 1: VAX-11 Bliss-32 V4.0-74 
1 8ep- 1984 9}: 4] 0 DISKSVMSMASTER: ch the SRCJFDLGEN.B32;1 
33 A2 9A 000C1 9S: MOVZBL 51(BLK), 
O& 11 ¢ BRB 13$ 
34 Ad 9A OO0C7? 10$:  MOVZBL 52(BLK), 
08 11 000CB BRB 13$ 
35 A2 9A 000CD 11$:  MOVZBL 53(BLK), 
9 11 0000 BRB 13$ 
bg D 138: CLRL Re 
af 1 05 13$: BEQL 17% 
65 dd 0000 PUSHL FAO_LENGTH 
04 FB O09 CALLS #1, FDLS$$OUTPUT_LINE 
7 F £0 AOBLEQ #7. J, 3$ 
49 11 000E4 RB 17$ 
53 OD EG 16$: | PUSHL LINE 
or FB E CALLS #1, FETCH. FIELD 
Q 5 EB BLBC =—_- RO 
0c AS 7D 00 EE MOVO = FAO_ PARAMS, -(SP) 
04 AS 7D 000F MOVQ #$FAO"PARAM, =(SP) 
0060 8F EE O0F6 PUSHR #*M2R5,R6> 
D8 AS OF OOOFA PUSHAB FAO_DESC 
97 FB OOFD CALLS #7, ~SYSS$FAO 
9 E 9019 15$:  BLBC STATUS 19$ 
05 a3 91 0010 CMPB (LINES, #7 
1) 12 00107 BNEQ 17$ 
18 AS 9F 00109 PUSHAB OCHAR 
14 AS OF 0010C PUSHAB STRBYTES 
08 FB 0010F CALLS #2, LIBSFREE_VM 
50 € 00116 BLBS STATUS, 17$ 
50 DD 0011 PUSHL STATUS 
01 FB 0011B CALLS #1, LIBSSTOP 
02 11 00122 BRB 17$ 
65 D4 00124 16$:  CLRL —‘~FAO_LENGTH 
65 DO 00126 17$:  MOVL FAO -LENGTH, RO 
04 00129 RET 
50 D4 0012A 18%: CLRL RO 
04 0012C 19$: ET 


_FDLSCODE + 0254 
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L_Utilities bese 
UT_LINE 1228 
SBTTL ‘FDLSSOUTPUT_LINE’ 
GLOBAL ROUTINE FOLSSOUTPUT_LINE ( OUT_LEN : LONG ) = 
i Functional Description: 
TRIS FOUTTME KXKKKKKKK KKK 
i Calling Sequence: 
fdl$$gen_line( fdl string ) 
i input Parameters: 


pa1986 12:31:18 


-74 Page 4 
SRCIFDLGEN.B32;1" 9%" (9) 


file_name - descriptor file name to overide the name specified 


in the fdl file (optional) 


default_name - descriptor default file name to overide the default 
name specified in the fdl file (optional) 


is a char string 


flags - address of flags longword (optional) 
FOLSV_SIGNAL signal errors instead of returning 
FDLSV_FDL_STRING input fdl-spec 
FDL$V_$CACLBACK used by EDF 
! Implicit Inputs: 
none 


i Output Parameters: 


result_name - pag Bae to receive the file name which was created 
optiona 
fid_block - address of a 3 longword used block to receive the fid 


of the file created (optional) 


stmnt-num - address of ere to recieve statement 


number (optional 
i Implicit Outputs: 
none 


i Routine Value: 
success or error code 


i Side Effects: 
none 


D 
P 
% 
G 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
fdl_desc - descriptor of the fdl file name string (required) 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
i 
' 
' 
' 
' 
' 
' 
' 
1 
' 
' 
' 
' 
' 
‘ 
' 
' 
' 
BEGIN 


LOCAL 
TEMP_LEN : WORD; 


Don't bother with nothing 
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FDOLGEN VAX=-11 FOL Utilities 1beSe =1984 241: VAX-11 Bliss-32 V4.0-74 Page 25. 
FDLSSOUTPUT_LINE 12-8 08- 1 3be 9337 £98 NT EKSVMEMASTER CY DL SACTFDLGEN.B32; 1 . Ast 
: 770 14 IF .OUT_LEN EQLU 0 | 
: Ot re rar ems 306 none 
° ué 
: us 2B Ap | opm tacetite me 
3 ' But less than nothing means sk a ne 
: 70? 1493 iF .OUT_LEN LSS 0 | 
° ° | 
: at 1438 ge | 
3 = 0; 
: 779 1495 “s | 
; 780 1496 IF .FDLSAB_CTRL C FDLS$V_STRING_SPEC J 
: 781 149 THEN 
a, i 1498 BEGIN | 
: 78 1499 LOCAL 
: 784 1500 TEMP : LONG; 
; 785 1501 
: 786 1308 TEMP_LEN = .FDLSAB_LINE C DSC$W_LENGTH ]; 
> 787 150 TEMP-= .FDLSAB_LINE C DSCSA_POINTER J] + .OUT_LEN; 
: 788 1504 .TEMP = ';': 
; 789 1505 GUT.LEN =" -OUTALEN + 1: | 
; 790 1506 FDLSAB_LINE C BSCS$W_LENGTH J = .OUT_LEN; 
: 791 1507 3 RET_ON-ERROR( STRSAPPEND( .FDLSAB_OOT STRING, FDLSAB_LINE ) ); | 
; 138 1508 3 FDLSAB_LINE C DSC$W_LENGTH J] = .TEMP_CEN; 
: 79 1509 3 
: 794 1510 3 END 
: 795 1511 é ELSE 
; 796 1216 ' Put the new Line to the FDL file. 
; 797 151 : i 
: 798 1514 BEGIN 
: 799 1515 3 
; 800 1516 3 FOLSAB_FDL_RAB C RABSW_RSZ J = .OUT_LEN; 
: 801 1317 3 RET_ON-ERROR( SPUT ( RAB=FDLSAB_FDL_RAB,ERR=FDL$SREAD_ERROR ) ); 
; 803 1519 2 END; 
3 804 1520 3 | 
; 805 1521 RETURN SS$_NORMAL; 
: B06 1922 2 | 
; 807 1525 1 END; 
EXTRN SYS$PUT 
000c 900 .ENTRY FDLSSOUTPUT_LINE, Save R2,R3 : 1430 | 
53 000000006 00 9€ 0000 MOVAB AB_LINE> R3 : 
06 Ac OD 9000 TSTL a + 1486 
55 13 0000C BEQL ; 
03 18 000 BGEQ 1$ : 1492 
046 AC 04 0001 CLRL OUT_LEN > 1494 
2A 000000006 9 04 €1 00013 1$: C #4, FDLSAB_CTRL4+1, 2% > 1496 
63 BO pore MOVW FDLS$AB_LINE, TEMP_LEN : 130¢ 
50 046 =A 04 aC Ci QOO1E ADDL3 OUT LER FDLSAB_LINE+4, TEMP ; 150 
60 3B 00 00 4 OVL #597 (TEMP) > 1504 | 
04 AC 06 7 INCL OUT_LEN ; 1505 | 
63 4 AC BO O002A MOVW OUT“LEN, FDLSAB_LINE > 1506 | 
DD 9 F PUSHL ; 1507 
000000006 00 ob PUSHL FDLSAB_OUT_STRING ; | 
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CHECK_XAB 14-Sep-1984 12:31: DISKSVMSMASTER: CFDL.SRCJFDLGEN.932;1 (8). 
; 809 1524 1 XSBTTL. ‘CHECK _XAB' | ; 
$ 19 ! 5 : ROUTINE CHECK_RAB ( XAB_POINTER : REF BLOCK C ,BYTE ] ) = | : 
i Ble 1357 | i | 
; 81 1528 1 ! Functional Description: : 
> 814 1529 1! ; 
: 815 1550 1! THIS POUTIME KXKKKKK KKK KKK : 
; £18 1531 1! 3 
; aif 13 ¢ : : Calling Sequence: ; 
; ai? 1 : ! fdl$$gen_line( fdl_string ) | : 
; . | 5 
> 821 1536 1! Input Parameters: : 
; & ¢ 1537 1! : 
3; § 1538 1! fdl_desc - descriptor of the fdl file name string (required) ; 
; 824 1539 1! file_name - descriptor file name to overide the name specified ; 
; 825 1540 1! in the fdl file (optional) : : 
; 826 1541 1! default_name - descriptor default file name to overide the default : 
; ase 1268 : name specified in the fdl file (optional) : 
; 5¢? 1544 1! flags - address of flags longword (optional) : 
; 8350 1545 1! FDLSV_SIGNAL signal errors instead of returning 3 
; 831 1546 1! FOLSV_FDL_STRING input fdl-spec is a char string : 
: ge 1547 1! FDL$V~S$CACLBACK used by EDF : 
; 1548 1! 3 
; 834 1549 1 ! Implicit Inputs: : 
; 835 1550 1! none ; 
: 836 1551 1! 3 
3 837 1328 1 ! Output Parameters: : 
; 838 issm 9 | 3 
: 839 1554 1! result_name - descriptor to receive the file name which was created . 
: 840 1555 1! (optional) 2 3 
; «841 1556 1! fid_block - address of a 3 longword used block to receive the fid : 
: a6 1320 : of the file created (optional) : 
> 844 1559 1! stmnt-num - address of longqword to recieve statement : 
: 845 1560 1! number (optional) F 
; 846 1561 1! 3 
; 847 15 1! Implicit Outputs: 3 
; 848 1565 1! none : 
> 849 1564 1! 3 
; 850 1565 1 ! Routine Value: $ 
; «851 1566 1! 3 
; 826 1567 1! success or error code : 
; 85 1568 1! : 
; «854 1569 1 ! Side Effects: 3 
3 $22 1570 1! none . 
; 856 Tor) 0 ; 
; 857 1376 1 f= : 
3 $28 1573 1 3 
; 859 1574 BEGIN 3 
g 360 137? LOCAL TEMP; : 
; ase 1377 WHILE ( .XAB_POINTER NEQU 0 ) : 
: 4 1399 BEGIN 3 
; 865 1580 3 
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FOLGEN VAX-11 FDL Utilities S$ep-1984 VAX-11 Bliss-32 j 
vO4~000 CHECK _XAB e=8tp-198e 12:51:18 iSKSUMGMASTERSCY DL SRCSFOLGEN. 32:1" BS 
; 66 1581 ! Keep the old next-Link around | 
es 6 1 § ! | 
; o8 } ? SAVE_POINTER = .XAB_POINTER C XABSL_NXT J; 
: Br : , See if it's a useful one and save it's address if it is | 
; 87 1 | 
; 878 1588 4 F ( | 
; are : 3 ? ( .XAB_POINTER C XABSB_BLN J EQLU 0 ) | 
; 876 1381 5 ( .XAB_POINTER C XABSB_BLN J LSS C0 ) | 
; 878 1338 ; (-AB_POINTER C XABSB_COD J EQLU 0 ) | 
; 880 1595 3 ( ,XAB_POINTER C XABSB_COD ) LSS 0 ) | 
; 881 1396 THEN 
: 388 1398 d tags | 
; 884 1399 4 IF .FOLSGL_INVBLK PTR NEQU 0 | 
; 886 1601 4 .FDLSGL_INVBLK_PTR = .XAB_POINTER; | 
; 888 1608 6 SIGNAL ( FDL$_INVBLK,1,.XAB_POINTER ); | 
; 889 1604 4 

; 890 1605 4 END 

; 891 1606 3 ELSE 
Be iY sein 
: Boe 108 : Only bother if we're not deallocating 
: 896 1611 4 If NOT .FOLSAB_CTRL C FOLS$V_DEALLOC J | 
; 898 1818 5 BEGIN 
; a's 131? ; } It's not an obviously BAD XAB, is it an important one? | 
: 902 1617 5 SELECTONE .XAB_POINTER C XABS$B_COD J OF | 
; 903 1618 5 | 
ee i 
; 906 1621 C XABSC_KEY ] : If XABKEY_PTR EQLU 0 

; 908 1698 XABKEY_PTR = .XAB_POINTER; 

: 910 1658 C XABSC_ALL ] : 

; git 1686 6 BEGIN 

; $18 1638 6 If _.XAB_POINTER C XABSB_GKZ J NEQU 0 

: 915 1880 4 FDLSAB_AREA_BKZ C .XAB_POINTER C XABSB_AID ] ] = 

; 916 16 1 6 a -XAB_POINTER C XABSB_BKZ 

: 218 1838 t FDLSAB_AREA_BKZ C .XAB_POINTER C XABS$B_AID ] ] = BUCKET_DEFAULT; 

; 381 is IF .XABALL_PTR EQLU 0 

: 922 1839 XABALL_PTR = .XAB_POINTER; 
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FDLGEN VAX=-11 FOL Utilities 16-Sep-1984 1: VAX-11 Bliss-32 V4.0-74 Page 30 
Oy 500 CHECK_XAB 12: Sep- 38 93: 4} 9 DISKSVMSMASTER: chor” SRCIFDLGEN.B32;1 . (BS 
50 000000006 it 6 3$: HOVE FDLSGL_ INVBLK_PTR, RO : 1599) 
60 D F MOVL Re, (RO) + 1601 
dD 2 4$: PUSHL R + 1603 
000000006 BF bb 00036 puSH HLS INVBLK : | 
000000006 00 3 FB i CALLS LTB$SIGNAL : seea | 
6D 000000006 09 05 £0 45 5$: BBS #5, FDLSAB_CTRL4+2, 14$ > 1611 
1 62 1 00040 CMPBC(R2), 21 + 1621 | 
B 1 5 BNEQ 6$ ; | 
FC =6—AG OD 2 TSTL KABKEY_PTR : 
eM #5 88885 BNE acevo gs 
7A 11 00058 BRB «168 > 1621 | 
14 62 91 0005D 6$: CMPB ss (2), - #20 + 1625 
9 if 0060 BNEQ 9$ : 
50 000000006 00 »D 9062 MOVL FDLSAB_AREA_BKZ, RO + 1630 
51 17 ag 9E 0006 MOVAB 3(R2); ; 
16 A2 95 0006D TSTB 2(R2) + 1628 
0A 13 00070 EQL $ ; 
51 61 9A 90072 MOVZBL (R1), R1 + 1630 
6140 16 Ag 90 0007 OVB ge (Re), (R1) CROJ + 1631 
07 11 OO07A BRB $ + 1630 
51 61 9A 9007¢ 7$: MOVZBL (R1), R1 + 1633 
6140 2 90 0007F MOVB #2, (R1)CROI : 
F8 AS D5 00083 8S: TSTL  XABALL_PTR ; 1635) 
4F 12 00086 BNEQ  =-16$ ; | 
F8 AG 52 DO 00088 MOVL R2, XABALL_PTR 3 1637) 
49 11 0008¢ BRB 16$ : 1617 
12 62 91 OOOBE 9S: CMPB ss (R2), #18 + 1641 
06 1 00091 BNEQ 10$ : 
FO AG 52 bd0 00093 MOVL R2, XABDAT_PTR Z 
3 11 00097 BRB 16$ ; 
13 62 91 00099 10$: CMPB (Re), #19 > 1642 
06 12 0009C BNEQ ss 11 ; 
£8 AG 26 DO 0009E MOVL R2, XABPRO_PTR : 
33 11 O00A2 BRB 16$ ; 
1€ 62 91 DOA, 11$ CMPB ss (R2),-#30 + 1643 
06 12 000A7 BNEQ 12$ : 
EC AG DO 000A9 MOVL R2, XABRDT_PTR : 
28 11 AD BRB 16$ ; 
22 62 91 OOOAF 128 CMPB (Re), #34 : 1644 | 
é ff B2 BNEQ 16 : 
F4 AG D BS MOVL R2 XABJNL_PTR : 
1D 11 O86 13$: BRB 16$ : 
15 62 91 OO0BA 14$: CMPB (Re), #21 : 1656. 
0D 12 000BD BNEQ 15 ; 
38 «= A2 OD BF TSTL 26(R2) > 1658 | 
08 1 C BEQL 15$ : 
38 «=6A2 «~D 000C PUSHL 56(R2) : 1660 | 
‘ DD 000C7 PUSHL #32 : 
65 FB 000C9 CALLS # FDL SSEREE _vM : 
3 01 Ad 9A OOOCC 15$: MOVZBL eho) » TEMP > 1662 | 
DD 000d PUSHL  R2 > 1663 | 
DD 0000 PUSHL TEMP ; 
65 FB 000D4 CALLS #2, FDLSSFREE_VM : 


vbe-500 HECK-XABY UTS EeS ite ep-1986 2:81:98 — DISkSYMSMASTERsCYOL. SRCSF OLGEN.832; 1 


04 AC £83 Ro 3 16$: MOVL Fare ar wemren, Ao POINTER 
50 f B° D 17$: MOVL #1, RO 
RET 


; Routine Size: 226 bytes, Routine Base: _FDLSCODE + 03E8 
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FDOLGEN VAX=11 FOL Utilit 4 01:41: VAX=11 Bliss-32 V4.0-74 Page 32 
Vv $00 FDOLSSCHECK_BLOCKS 1 7300-1384 93531:98 DL SKSVMGMASTERSCIDL SRCSFOLGEN.B32; 1 . (35 
> 964 1678 1 ZSBTTL ‘FDOLSSCHECK BLOCKS’ : 
> 965 1679 1 GLOBAL ROUTINE FOLSSCHECK_BLOCKS ( FAB_POINTER : REF BLOCK f -BYTE J, . 
; 208 1680 1 RAB_POINTER : REF BLOCK L ,BYTE J ) = ‘ 
; 96 1681 1 !+4 : 
; 968 16 ¢ 1} : 
; 969 16 1 ! Functional Description: : 
; 976 19 4 1! ; 
[en 1685 1! THIS FOUTTME KXXKKKKKKKKKKK : 
1; 97 16 § 1! . 
3 of? 1e5f : Calling Sequence: : 
; 975 1689 1! fdl$$gen_line( fdl_string ) ; 
; 976 1690 1! : 
; 977 1691 1 ! Input Parameters: : 
; 978 1938 . | ; 
; 979 1695 1! fdl_desc - descriptor of the fdl file name string (required) : 
: 980 1694 1! file_name - descriptor file name to overide the name specified : 
: 981 1695 1! in the fdl file (optional) ; 
; 98 1696 1! default_name - descriptor default file name to overide the default ; 
3 ear 1930 : name specified in the fdl file (optional) | ‘ 
; 985 1699 1! flags - address of flags longword (optional) : ; 
; 986 1700 1! FDL$V_SIGNAL signal errors instead of returning ; 
; 987 1701 1! FOLSV_FDL_STRING input fdl-spec is a char string ; 
; 988 1708 1! FDLS$V_S$CACLBACK used by EDF : 
; 989 1705 1! ° 
; 990 17046 1! Implicit Inputs: ; 
; 1705 1! none ; 
3 o36 1700 1! . 
; 99 1707 1 ! Output Parameters: : 
; 994 1708 1! ; 
; Pe 1709 1! result_name - descriptor to receive the file name which was created ; 
; 996 1710 1! (optional) : a ‘ 
; 997 1711 1! fid_block - address of a 3 longword used block to receive the fid ; 
3 o38 ig : of the file created (optional) : 
: 1000 1714 1! stmnt-num - address of longword to recieve statement ‘ 
; 1001 1715 +1! number (optional) ° 
3 1008 1716 1! e 
3; 100 1717 1°! Implicit Outputs: : 
: 1004 1718 1! none | ° 
; 1005 1719 1! ‘ 
: 1006 1720 1 ! Routine Value: ; 
; sd 1721 1! ~ ° 
; 1008 17 § 1; success or error code ° 
3; 1009 17 1! ‘ 
: 1010 1724 1 ! Side Effects: : 
; 1011 1725 1! none ‘ 
: ols 17 § 1! ‘ 
; 101 17 1 !e- ‘ 
3; 1014 1728 1 ‘ 
3; 1015 1729 BEGIN ‘ 
; 1016 1730 ‘ 
; 1017 1731 LOCAL ° 
; 1018 17 ; BYTES : LONG : 
: 1019 7 NAM_POINTER : REF BLOCK C ,BYTE J; : 


15 | 
FOLGEN VAX=11 FDL Utilities 18-52 =1984 01:41: VAX=11 BLiss-32_V4.0-74 Page 33. 
V05 2500 FDLSSCHECK_BLOCKS 132388- 1382 93531:98 DL eKSVMGMASTERSCF DL SRCIFDLGEN.B32; 1 : a 
; 10 1 1735 ' Allocate the area bucketsize array | é 
s 3 ¢ 17 : ; ‘ 
; 10 17 BYTES = 256; : 
> 1024 17 8 IF NOT LIBSGET_VM ( BYTES, FOLSAB_AREA_BKZ ) ; 
3 1025 17 THEN 
: 1026 1740 SIGNAL_STOP ( FDLS_INSVIRMEM ); | ; 
; 19 f 74) CHSFILL ( 0, .BYTES, .FDLSAB_AREA_BKZ ); : 
; + ; 11468 : Clear the cells that indicate where important XABs were found ; 
; 1031 1745 MABALL_PTR = _CLEAR; ; 
; 19 : 1246 XABDAT-PTR = “CLEAR: ; 
21 174 XABPRO-PTR = “CLEAR: ; 
> 1034 1748 XABRDT-PTR = “CLEAR: | : 
; 1035 1749 XABJNLPTR = “CLEAR: | : 
: 10 1750 MABKEY-PTR = “CLEAR: | : 
; 1037 1751 ; 
3 Ht 1738 If not defaulted, FAB_POINTER must point to a FAB ‘ 
: 1040 1754 iF ( .FAB_POINTER NEQU 0 ) AND ( .FAB_POINTER C FABSB_BID ] NEQU FABSC_BID ) : 
> 1041 1755 THEN ; 
; 1048 1756 BEGIN : 
: 104 1757 3 
> 1044 1758 IF_.FDLS$GL_INVBLK_PTR NEQU 0 : 
: 1045 1759 3 
: 1046 1760 3 .FDLSGL_INVBLK_PTR = .FAB_POINTER; : 
> 1047 1761 : : 
: 1048 176 SIGNAL ( FDL$_INVBLK,1,.FAB_POINTER ); : 
> 1049 1763 3 é 
Hecate fio : 
: 1926 1706 : If not defaulted, RAB_POINTER must point to a RAB : 
> 1054 1768 : iF ( .RAB_POINTER NEQU 0 ) AND ( .RAB_POINTER C RABSB_BID ] NEQU RABSC_BID ) : 
; 1055 1769 THEN ; 
ns ee : 
; 1058 122 ; IF .FDLSGL_INVBLK_PTR NEQU 0 ; 
; 1960 177 3 .FDLSGL_INVBLK_PTR = .RAB_POINTER; 
i 106¢ 1776 ; SIGNAL ( FDLS_INVBLK,1,.RAB_POINTER ); ; 
3; 106 1777 ; 
> 1664 1778 END; é 
> 1065 177 ; 
: 1066 1780 ! Check the FAB attachments : 
> 1067 1781 i : 
3 1068 1788 if .FAB_POINTER NEQU 0 : 
3: 1069 178 THEN : 
eR nee : 
: 107 17 ! Deallocate the NAM if it exists ; 
: 107 1787 i : 
3 14 4 3 NAM_POINTER = .FAB_POINTER C FABSL_NAM J; . 
; 1076 17 IF .NAM_POINTER NEQU 0 3 
> 107 1791 THEN ; 


IF .FDLSGL_INVBLK_PTR NEQU 0 
-FDLSGL_INVBLK_PTR = .NAM_POINTER; 
SIGNAL ( FDLS_INVBLK,1,.NAM_POINTER ); 
END; 
END; 
Deallocate the filename (and default filename) if present 
NAM_POINTER = .FAB_POINTER C FABSL_FNA J; 
IF ( .NAM_POINTER NEQU 0 ) AND ( .FDLSAB_CTRL C FDLSV_DEALLOC J ) 
FDLSSFREE_VM ( .FAB_POINTER C FABSB_FNS J, .NAM_POINTER ); 
NAM_POINTER = .FAB_POINTER C FABSL_DNA J; 
IF ( .NAM_POINTER NEQU 0 ) AND ( .FDLSAB_CTRL C FDLSV_DEALLOC J ) 
FOLSSFREE_VM ( .FAB_POINTER C FABSB_DNS J, .NAM_POINTER ); 
Now check and possibly deallocate any XABs 
CHECK_XAB ( .FAB_POINTER C FABSL_XAB J ); 
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FDLGEN VAX-11 FDL Utilities 16-Sep-1984 01:41:0 VAX-11 Bliss-32 V4.0-74 p 4 
10% °600 DLSSCHECK_BLOCKS ae tet ran Pe a Vet TY oe et eo 
107 792 & BEGIN : 
07 138 4 
081 Pee ? If it exists, it must be a NAM block 
0 79% 4 if .NAM_POINTER C NAM$B_BID ] EQLU NAMSC_BID 
88g 38 4 THEN ~ . —_ 81 
O84 3 BEGIN 
086 0 IF .FDLSAB_CTRL C FOLS$V_DEALLOC J) 
087 0 THEN 
O88 BEGIN 
990 ° IF_.NAM_POINTER C NAMSL_ESA ) NEQU 0 
092 0 FDLSSFREE_VM ( .NAM_POINTER C_NAMSB_ESS J 
093 0 .NAM_POINTER C NAMSC_ESA J ); 
095 0 IF_.NAM_POINTER C NAMSL_RSA ) NEQU 0 
$39 1 FDLSSFREE_VM ( .NAM_POINTER C_NAMSB_RSS J] 
098 .NAM_POINTER C NAMSC_RSA J ); 
90 FDLSSFREE_VM ( .NAM_POINTER C NAMSB_BLN J, .NAM_POINTER ); 
2 1 END 
3 1 END 
1 ELSE 
BEGIN 
2 
2 
2 
2 
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zs } 
: i 4 ! FOLSSFREE_VM ( .FAB_POINTER C FABSB_BLN J, .FAB_POINTER ); 
; 1139 1 
; 1140 1 
: 1141 32 ' Check the RAB attachments 
3 1108 185 : 
3 114 185 IF .RAB_POINTER NEQU 0 
> 1144 185 THEN 
> 1145 185 BEGIN 
5 1199 136 
3 114 186 ' Deallocate any existing XABs 
3 1148 186 ' 
; 1149 1863 CHECK_XAB ( .RAB_POINTER C RABSL_XAB ) ); | 
3 1151 1865 IF .FDLSAB_CTRL C FDLS$V_DEALLOC 
: 1126 1866 THEN 
; 1133 1867 FDLSSFREE_VM ( .RAB_POINTER C RABSB_BLN J, .RAB_POINTER ); | 
5 | 
: 1155 1869 END; 
: 1156 1870 
3 1157 1871 ! Done with the bucketsize array 
3; 1158 1876 ! 
3 1159 187 BEGIN 
: 1160 1874 LOCAL STATUS; 
: 1161 1875 
3 BY 1876 4 IF NOT ( STATUS = LIBSFREE_VM ( BYTES, FDLSAB_AREA_BKZ )) 
3: 116 1877 : THE 
3 1164 1878 SIGNAL_STOP ( .STATUS ); 
; 1165 1879 END; 
1166 1880 | 
> 1167 1881 RETURN SS$_NORMAL; 
3; 1168 13e6 
3: 1169 1883 1 END; 
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a ; 
5B 000000006 00 9 99002 MOVAB LIBSSIGNAL, R11 ; 
3A 00 G BF p 0 0 MOVL #FDLS INVBLK, R10 ; | 

9 G E 00010 MOVAB FDLSGC_INVBLK_PTR, R9 ; 
38 900000 y 9E 00017 MOVAB XABPRO-PTR, RB ; 
99 0006 9E 00 3 MOVAB FDLSAB-CTRL, R7 ; 
6 000000006 00 9€ 99 MOVAB EDL SSF REE VA, R6 ; 
E gi 0 F 3C¢ ¢ MOVZWL #256, BY ; 1737 | 
000000006 00 9F 00031 SHAB FDL$AB_AREA_BKZ : 1738 | 
4 AE 9F 00037 PUSHAB BY : 
000000006 00 9 FB A CALLS #2, LIBSGET_VM F 
D E 41 BLBS ; | 
000000006 8F DD 00044 PUSHL #FOL$_INSVIRMEM : 1740. 
000000006 99 1 FB GA CALLS #1, LTBSSTOP : 
000000006 0 p 9 21 1$: MOVL FDLSAB AREA_BKZ, RO 1741 | 
6E 00 6E C 8 mMOVCS #0, (SP), #0, BYTES, (RO) ; 
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DLSC_SECBLK_SIZE,LONG ] FIELD (SECTAB_FIELDS) ) = 


Functional Description: 

THIS POUTTME KXXKKKKKKKK KKK 
i Calling Sequence: 

fdl$$gen_line( fdl string ) 
i Input Parameters: 


fdl_desc - descriptor of the fdl file name string (required) 
file_name - descriptor file name to overide the name specified 
in the fdl file (optional) 
default_name - descriptor default file name to overide the default 
name specified in the fdl file (optional) 
flags - address of flags longword (optional) 
FDLSV_SIGNAL signal errors instead of returning 
FDOLSV_FDL_STRING input fdl-spec is a char string 
FDLS$V_SCACLBACK used by EDF 
i Implicit Inputs: 
none 
i Qutput Parameters: 
result_name - tet toe 4 to receive the file name which was created 
optiona 
fid_block - ogéress of a 3 longword used block to receive the fid 


of the file created (optional) 


stmnt-num - address of longword to recieve statement 
number (optiona 


i Implicit Outputs: 
none 


i Routine Value: 
success or error code 


i Side Effects: 
none 
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CAL 
TEMP_SWITCH : BYTE, 
TEMP~BYTE : BYTE. 
TEMP~ WORD : WORD, 
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D 14-Sep-1984 12:31:1 DISKSVMSMAST 

TEMP_LONG LONG 

TEMP~QUAD VECTOR ; 2, LONG 

“OCTA : VECTOR C 4:L0 

TEMP~STRING : DESC_BLK, 

TEMP-QUALIFIER : BYTE; 

TEMPSPECIAL LONG 

BLK : REF BLOCK C ,BYTE J, 

BOF F : LONG, 

POS : LONG; 


(ARRAS AALASLLESLA LS & 


FOR EDF TO CALL FDLSSFORMAT LINE DIRECTLY = FETCH_FIELD WILL 
HAVE TO BE CONDITIONALIZED TO GET THE VALUES FROM 
FOLSGL_NUMBER, FDLSGL_SWITCH, ETC. INSTEAD OF FROM THE 


RMS CONTROL BLOCKS 
PARA AAAASALASLALAL SE Sf 
Get the address of the BLK and the offsets within it 
BLK = .FDLSAB_BLOCK BLK C .LINE C FOLSV_BLK_TYPE J] J]; 
BOFF = .LINE C FOLSV_SEC_BOFF J; 
POS = .LINE C FOLS$SV_SEC_Pos ); 
Save the value according to its datatype 
CASE .LINE C FDLSV_DATA_TYPE ] FROM FDLSC_DUMMY TO FDLSC_SPECIAL OF 
SET 
C FOLSC_DUMMY J] : 0; 
C FOLSC_BYTE J : 
BEGIN 
IF .FDLSGL_SECONDARY NEQU FDLSC_SEGLEN 
oe Pn = .BLK C .BOFF,.POS,8,0 J 
BEGIN 
4 = (CASE .FDLSGL_SECNUM FROM 0 TO 7 OF 


E 
0 : BLK ( XABS$B_SIZ0 J; 
1 : .BLK ( XAB$B_SIZ1 J; 
§ : »BLK Stree : 
BLK { XAB$B_S125 J; 
4 BL XABSB_S1Z4 J; 
5 ~-BLK ( XABSB_SIZ5 J; 
§ : BL tt a 3 
: «BLK C XABSB_SIZ7 J; 
TES); 
END; 


END; 
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te C .BOFF,.POS,1,0 J 
FAO_PARAM = UPLIT BYTE (ZASCIC ‘yes') 
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055 
§ 0 8 END; 
5 C FOLSC_OCTA ) : 
: BEGIN 
3 $1 0; 
oe8 
29 8 a 
26 65 C FOLSC_SWITCH J : 
a 96 BEGIN 
55 68 ' Qutput yes or no depending upon the bit settin 
28 896 ' 4 of the secondaries haus’ inverted sense . 
58 071 if ¢ 
22 Ore (.FDLSGL_SECONDARY EQL FDLS$C_RATKC) 
361 Boe (. FDOLSGL SECONDARY EQL FOLSC_DATRC) 
68 076 (.FDLSGL_SECONDARY EQL FDLS$C_IDXC) 
365 078 (.FDLSGL_SECONDARY EQL FDL$C_BLKSPN) 
366 079 ) THEN 
4 080 BEGIN 
4 +! IF NOT .BLK C .BOFF,.POS,1,0 J 
ty 5 “oe = UPLIT BYTE (ZASCIC ‘yes") 
Lf: 2 FAO_PARAM = UPLIT BYTE (ZASCIC ‘no'); 
74 7 ELSE 
75 8 BEGI 
76 9 
77 0 
78 1 
gy 
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- FAO_PARAM = UPLIT BYTE (ZASCIC ‘no"); 
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C FOLS$C_BACKUP, FDLSC_CREAT, FOLSC_EXPR, FDLSC_REV ] : 
BEGIN 
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es 
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1 
$38 END; 
i 
C FOLSC_SPECIAL J : 

+H BEGTi« 
387 100 OCAL 
388 101 TIME_ADDR : LONG, 
389 é TIME-LEN : WORD; 
: ! ¢ SELECTONE .FDLSGL_SECONDARY OF 
3 1 $ SET 
$9 1 
95 108 

109 

110 

111 


LOCAL 
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ae FETCH FIELD. ere 127828718 4 94:3} 298 NT EKSUMGHASTERSCEDL SRCSFDLGEN.B32;1 9° 10) 
1635 169 BLK C XABSW_RFIG J )); 

1458 171 TEMP_DESC C DSC$W_LENGTH ) = .TEMP_WORD; 
1459 1% FAO_PARAM = TEMP_DESC; 

1460 17 

1262 8 2 evsee 

mt ches 

1465 128 SELECTONE .BLK [ XABSB_ALN J OF 

1466 17 

Fe nt 7 

1469 1 2 5 C XABSC_CYL ] : 

1274 1B 6 pegs 

1478 P2185 6 RET_ON_ERROR ( SYSS$FAO ( 

147 ° 196 6 ZASCID ‘cylinder !UL', 

1474 P 2187 6 P_WORD, 

1475 P 2188 6 TEMP DESC 

147% 189 6 .BLK7C XABSL_LOC ) )); 

1478 2191 6 TEMP_DESC C DSCSW_LENGTH ] = .TEMP_WORD; 
1479 $136 6 FAO_PARAM = TEMP_DBESC; 

1480 193 6 

1483 198 3 ~— 

1288 196 5 { XABSC_LBN ) : 

1288 $198 6 — 

1486 P $198 é RET_ON_ERROR ( SYSSFAO ( 

1288 p 550) 6 Tens yorbe ee Ut 

1489 P g20e 6 TEMP~DESC, 

1490 3203 6 .BLK"C XABSL_LOC ) )); 

1492 2205 6 TEMP_DESC C DSC$W_LENGTH ] = .TEMP_WORD; 
1493 2206 6 FAO_PARAM = TEMP_DESC; 

1494 207 6 

1498 $38 3 or). 

1497 $508 5 { XABSC_VBN J : 

1498 1 é BEGIN 

1500 P i & RET_ON_ERROR ( SYSSFAO ( 

we BBE Hs bogs "tot 

1808 P 2216 6 TEMP"DESC, 

1304 1 6 .BLK7C XABSL_LOC ) )); 

1506 19 6 TEMP_DESC C DSCS$W_LENGTH ) = .TEMP_WORD; 
1507 0 6 FAO_PARAM = TEMP_DESC; 

1308 1 

15 é END: 

1319 ; 7. 

1842 5 6 BEGIN 
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; 1627 40 3 C FDLSC_KYNAME J : 
> 1628 41 4 SEGIN 
: 1629 t 4 
; 1630 43 4 IF .BLK C XABSL_KNM J NEQU 0 
: 16351 44 & THEN 
: 12 ¢ a BEGIN 
; 16 23 TEMP_DESC f DSCSA_POINTER ] =_,BLK C XABSL_KNM J; 
: 1635 48 TEMP~DESC £ DSCSWULENGTH J = 32; 
: 1636 4 
: 1637 50 4 END; 
18 1 § 
3; 16 § END; 
: 1640 $2 
> 1641 54 TES; 
5 Mb 355 
3 Hb oF $328 If the string length is 0, don't bother putting it out 
: 1645 $324 IF .TEMP_DESC C DSCS$W_LENGTH J] EQLU 0 
: 1646 2359 
> 1647 2360 RETURN 0; 
> 1648 $30) - 
> 1649 $08 ! Add Quotes or Apostrophes to the output string 
: 1650 2363 3 ‘ 
: 1651 2364 4 BEGIN 
3 1o26 tye 4 
; 165 366 4 LOCAL 
3: 1654 2367 4 QCHAR : BYTE, 
3; 1655 368 4 OIDX : WORD, 
: 1656 369 4 ICHAR : REF VECTOR C ,BYTE J; 
3; 1657 370 4 
; 1658 2371 4&4 ' Get a buffer big enough to hold the result 
: 1659 $376 4 ! 
: 1660 2373 4 STRBYTES = ( ,TEMP_DESC C DSCSW_LENGTH ] * 2 ) + 2; 
3 1661 sare 4 IF NOT LIBSGET_VM T STRBYTES, OCHAR ) 
3 1296 2375 4 THEN 
3; 166 2376 4 SIGNAL_STOP ( FDLS_INSVIRMEM ); 
3 1664 $or7 4 CHSFILL ( 0, .STRBY ,OCHAR ); 
> 1665 378 4 ICHAR = .TEMP_DESC C DSCSA_POINTER J; 
> 1666 2379 4 
3: 1667 2380 4 ' Clear the flags 
: 1668 tet 4 ! 
3 1669 38¢ 4 FDLSAB_CTRL C FDLS$V_APOST_PRES ] = _CLEAR; 
3 1909 ; ? FDLSAB_CTRL C FDLS$V_QUOTE_PRES ) = ~CLEAR; 
3 1076 385 7 Scan the buffer for quotes/apostrophes 
3: 1674 33 5 INCR X FROM 0 TO (.TEMP_DESCCDSCS$W_LENGTH)-1) 
3: 1675 388 4 DO 
3 1o76 89 BEGIN 
; 167 90 
3; 1678 91 IF .ICHAR C .X J EQLU ''*’ 
3; 1679 38 é 
: 1980 2 FDLSAB_CTRL C FOLSV_APOST_PRES ] = _SET; 
3 1o56 398 : IF .ICHAR C .X J EQLU °°" 
; 168 396 5 THEN 
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FDLSAB_CTRL C FOLS$V_QUOTE_PRES } = _SET; 


Add quotes to a ‘vanilla’ string 

Add apostrophes to a string with quotes 

Add quotes to a string with apostrophes 

Add quotes to a string with both = and double the quotes 


FDLSAB_CTRL C FDLSV_QUOTE_PRES J 
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Quotes AND Apostrophes were found 
BEGIN 
QCHAR = '''; 


OIDX = 0; 
OCHAR C .O1DX J = .QCHAR; 
OIDX = .OIDX + 1; 


INCR I FROM 0 TO (.TEMP_DESCCDSCS$W_LENGTHI-1) 
IF .ICHAR C .I J EQLU .QCHAR 
THEN 


EGIN 
OCHAR C .OIDX J = .QCHAR; 
O1DX = .O1DX + 1; 
OCHAR C .OIDX J = .QCHAR; 
OIDX = .OI1DX + 1; 
END 
ELSE 
BEGIN 


OCHAR -O1IDX J = .ICHAR C .1 J; 


OCHAR C .OIDX J = .QCHAR; 
OIDX = .OIDX + 1; 


END 

} Quotes were found, Apostrophes were not 
BEGIN 

QCHAR = ‘'''; 


OIDX = 0; 
OCHAR C .OIDX ) = .QCHAR; 
OIDX = .OIDX + 1; 


INCR I FROM 0 TO (. TEMP_DESCCDSCSW_LENGTHI-1) 
BEGIN 


ors P 
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voke 00 FETCH _FIELD 1 =300n 138% 93:94:98 NT EKSVMSMASTER CIOL SRCTFDLGEN.832; 1 9 10) 
; 179 11 C FDOLSC_CARCTRL J : 
; 1798 \¢ ; e 
3 3 $9 13 4 BEGIN 
; 1801 14 4 
; 180 15 4 IF .BLK C FABSV_CR J 
: 180 1 4 THEN 
; 1804 1? 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘carriage_return’ ) 
; 1805 218 4 ELSE IF .BLK C FABSV_FTN 
3} “4 51 4 THEN 
; 180 520 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘FORTRAN’ ) 
: 1808 S21 4 ELSE IF .BLK C FABSV_PRN 
3 1398 5 ¢ 4 THEN 
; 1810 5 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘print’ ) 
; 1811 524 4 ELSE 
3 sig 525 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘none’ ); 
3; 181 5 $ 4 
3 1814 5 END; 
3 1815 528 
: 1816 529 C FDLSC_ORG J : 
: 1817 $2 0 
3; 1818 531 4 BEGIN 
3: 1819 S256 4 
: 1820 $23 4 SELECTONE .BLK C FABSB_ORG J OF 
> 1821 534 4 
3 \3sé 535 4 SET 
3; 18 536 4 
> 1824 537 4 FABSC_IDX ] : FAO_PARAM = UPLIT BYTE (ZASCIC ‘indexed' ); 
> 1825 2538 4 FABSC_REL ] : FAO-PARAM = UPLIT BYTE (ZASCIC ‘relative’ 3; 
: 1826 2539 4 FABSC_SEQ J] : FAO_PARAM = UPLIT BYTE (ZASCIC ‘sequential’ ); 
3: 1827 2540 4 C OTHERQISE J : 0; 
3; 1828 2541 4&4 
: 1829 $206 4 TES; 
; 1850 2543 4 
3; 1831 2544 ; END; 
3; 183 tod 
3 183 546 3 C FOLS$C_RU J : 
3; 1834 2547 
: 1835 548 4 BEGIN 
3: 1836 549 4 
3; 1837 550 4 IF .BLK C XABSV_RU ) 
; 1838 2551 4 N 
; 1839 $226 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘if_in_recovery_unit’ ) 
3: 1840 255 4 ELSE IF .BLK C XABSV_ONLY_RU J 
3 134) $22¢ 4 THEN 
5 § 555 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘necessary_to_write’ ) 
3: 184 $228 4 ELSE IF .BLK C XABSV_NEVER_RU J 
3 1844 557 4 N 
: Hb 9 328 : FAO_PARAM = UPLIT BYTE (ZASCIC ‘never_RU_journal’ ) 
: 18647 560 4 FAO_PARAM = UPLIT BYTE (ZASCIC ‘none’ ); 
3: 1848 561 4 
3: 1849 266 END; 
; 1850 56 
3; 1851 564 C FOLSC_FMT J : 
1936 565 
: 185 266 4 BEGIN 
3; 1854 567 4 
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P.ABJ: .ASCII 
-BLKB 
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ADDRE 
P.ABN: .ASCII 
-ABM: .LONG 
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<3>\yes\ 
$ >\no\ 
\file ID (!UW,!UW, !UW)\<0><0><0> 


“ASCII. \logical !UL\<0 

° 0 : > 

TONG. 12684931 

-ADDRESS P.ABP 

ASCII \yistyal 'UL\<0> 

«LONG 17694731 

-ADDRESS P.ABR 

ASCII <9>\none\<0><0><0> 
-LONG 17694725 

ADDRES . 

ASCII = <9>\any cyl inder\<0><0><0> 
-LONG 17694733 

-ADDRESS P.ABV 

ASCII eas? 

ASCII <15>\carriage_return\ 
eASCII <7>\FORTRAN\ 

ASCII <5>\print\ 

eASCII <4>\none\ 

ASCII <7>\indexed\ 

ASCII <8>\relative\ 

ASCII <10>\sequential\ 
ASCII <19>\if_in_recovery_unit\ 
ASCII <18>\necessary_to_write\ 
eASCII <16>\never_RU_journal\ 
-ASCII <4>\none\ 

eASCII <6>\stream\ 

eASCII = <9>\stream_CR\ 

-ASCII <9>\stream_LF\ 

-ASCII <9>\undefined\ 

eASCII <8>\variable\ 

eASCII <3>\VEC\ 

eASCII <5>\fixed\ 

eASCII <4>\bin2\ 

eASCII] <4>\bin4«\ 

ASCII <4>\bin8\ 

«ASCII <7>\decimal\ 

ASCII <4>\int 

eASCII <4>\int4\ 

eASCII § <4>\intB\ 

ASCII <6>\string\ 
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0% 500 te TCH FIELD 14- Sep- 138 93: $4) 8 DISKSVMSMASTER: Choi. sre FDLGEN.B32;1 Pag (10) 
.PSECT _FDLSCODE,NOWRT, SHR, PIC,2 
OFFC 00000 FETCH_FIELD: 
«WORD Save R2,R3,R4 RS. R6,R7,RB,RI,R10,R11 : 1885 
58 00 990006 9€ 0002 MOVAB FDL$AB_CTRL, : 
3h S39ne BS Fe 888A gtugeL gsc OMOMRY, 10 ; 
3 00 $6090" 9 0017 OV FAO_ PARAM, RB : 
3E 4 c3 1E SUBL2 #36, : 
5 04 AC DO 00027 OVL LINE «RO “RQ + 1962 
51 ? Ao 9A 00005 MOVZBL 7? (ROS : 
56 000000096004 0 00 9 OVL EDL SAB. BLOCK _BLKCR1], BLK : 
51 08 ad Hi 1 MOVZ2WL 8 (RO) + 1963 
38 OA AO 3C 00035 MOVZWL 10(ROS, OOS + 1964 
09 0 05 AO 8F 00 9 ASE 5(R0), #0, #9 + 1968 
012A 0071 0016 OSE 003E 1$ <WORD 128$-1$,- : 
02C0 0132 0565 O5E5 00046 2$-1$,- : 
017A 0478 0004E 138-18, 2 
128$-1$,- : 
128$-1$,- 3 
32$-1$,- ; 
58$-1$,- 3 
87$-1$.- : 
38$-1$ F 
OF 11 00052 BRB 3$ ; 
00000085 8F 6A b4 90034 2$ CMPL FDLSGL_SECONDARY, #133 ; 1977 
68 6146 08 seg ef 9005p a EXTZV POs. #8, (BOFF)CBLK], FAO_PARAM 1979 
07 00 000000006 00 CF 00066 4$: CASEL FDLSGL_SECNUM, #0, #7 : 1983 
0022 001¢ 0016 0010 0006E 5$: <WORD 6$-5$,= ; 
003A 0034 002E 0028 00076 {$-38.- 
9$-5$.- : 
10$-5$,- : 
11$-5$,- r 
1937 33-" 3 
13$-5$ ; 
50 2E ag 9A 007 6$: MOV ZBL 46(BLK), RO ; 1985 
50 2F Ag 9A 90084 7$: MOVZBL 47 (BLK), RO 1986 
50 30 AG 9A O08, 8$: MOVZBL 48(BLK), RO 1987 
50 31 Ab 9A 90096 9$: MOVZBL 49(BLK), RO 1988 
50 32 Ag 9A 0096 10$: MOVZBL 30(BLK), RO 1989 
50 33 Ab 9A 909¢ 118: MOVZBL 31 (BLK), RO 1990 
50 34 Ab 9A SOA 128: MOVZBL 92(BLK), RO 1991 
50 35 Ab 9A Ons 13$:  MOVZBL 1 i RO : 1998 
OOAC 31 AC 14$:  BRW 28$ : 198 
50 A DO OOOAF 15$: = MOVL FoLS Gs SECONDARY, RO ; 3002 
00000079 = BF 0 D1 00082 CMPL 0, : 
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50 1€ A6 
28 
50 20 «AG 
22. 
50 22 4 
50 24 Ab 
16 
50 26 «= AG 
10 
50 28 = AG 
OA 
50 2A AG 
5 2c Ae 
é 3 
6 
10 2 
& 
20 5 
46 
50 A 
8F 30 
8F 5 
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3c | 218: 
11 001 
3c Bat 9 228%: 
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3c OO13F 238: 
11 i 
3c 00145 248: 
11 00149 
3C 00148 25%: 
11 Bief 
3c 12 26% 
1 00155 
a TH 8 
11 13 
HH : 293: 
ff Bek 30%: 
1 001 1$: 
00 O07 S78: 
13 OO17A 
D1 0017C 
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~ RO 
AB‘ AREA_BKZ, RO 


RO, #134 


BLK), RO 


BLK), RO 
FAO PARAM 


POS, #16, (BOFF)CBLK], FAO_PARAM 
Pgs. #32, (BOFF)CBLKI], FAO_PARAM 
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2011 
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2014 
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12 13 001 BEQL 338 ; 
0000007E  8F i$ ‘ 1 CHPL RO, #126 + 2076 
seestasgmd, | ais 75 9) 864 oes ng i 2078 
05 146 28 eb 197 33$: BBS POS, (BOFF)CBLK], 34$ + 2081 
‘ : F 19¢ MOVAB P.ABG, FAO_PARAM + 2083 
6 1 O19F BRB 4i$ : 
7) 06 AD 9E OO01A1 34$:  MOVAB  P.ABH, FAO_PARAM + 2085 
3 1 Q1A5 BRB 4i$ + 2071 
06 6146 3. O1A7 35%: BBC POS, (BOFF)(BLK], 36$ + 2089 
‘ 07 9 9 O1aC MOVAB P.ABI, FAO_PARAM : 2091 
7F 11 0018 BRB 43$ : 
3 0B «OAD H 0182 36$:  MOVAB P,ABJ, FAO_PARAM + 2093 
79 «1 0186 $: BRB 3 + 1968 
50 6A DO 001B8 38$:  MOVL  FDLSGL_SECONDARY, RO + 2104 
00000064  &F 6 01 0018B CMPL RO, #68 : 2108 
§ 19 001C2 BLSS 42 : 
00000067 aF @ D1 0014 CMPL RO, #71 : 
eC 14 001CB BGTR 42$ : 
51 6 CO 001CD ADDL2 BLK, TIME_ADDR > 2114 
50 51 00 90109 MOVL TIME_ADDR> TIME_VEC ; 119 
60 D5 001D TSTL  (TIME_VECS > 2120 
08 12 00105 BNEQG  39$ : 
04 Aad DS 00107 TSTL  4(TIME_VEC) : 2122 
03 12 OO1DA BNEQ 39% : 
0448 31 001DC BRW 129$ ; 
7E D4 OOIDF 39%:  CLRL  -<-(SP : 2126 
51 DD O01E1 PUSHL TIME_ADDR : 
DC AB «OF OO1E3 PUSHAB TIME ~BUF : 
7E D4 OO1E6 CLRL = = (SP : 
000000006 00 04 FB OO1E8 CALLS #4, SYSSASCTIM ; 
01 50 ES OO1EF BLBS STATUS, 40$ ; 
4 OO1Fe RET : 
68 DC AS 9E OO1F3 40$: MOVAB TIME_BUF, FAO_PARAM > 212 
38 11 OO1F7 41$: BRB > 210 
00000065 8F 50 01 O01F9 42$:  CMPL RO, #101 > 213 
32 12 00200 BNEQ 44$ : 
51 08 AB 3C 00 02 MOVZWL 8(BLK), PROTECTION : 213 
50 51 04 00 EF 00206 EXTZV. #0, #4. PROTECTION, RO : 2138 
68 34 A840 00 00208 MOVL §PROT_VALUESCROJ, FAO PARAM : 
50 51 04 04 EF 00 19 EXT2V #4, BG, PROTECTION, : 2139 
06 As 34 A840 DO 0021 OVL PROT VALUESCROJ, FAO _PARAM2 ; 
50 51 04 08 EF 09 18 EXT2V #8, #4, PROTECTION, > 2140 
08 As 34 A840 00 MOVL §§ PROT_VALUESCROJ, FAO_PARAM3 : 
50 51 04 OC EF 00226 EXTZV #12, 784, PROTECT IO : > 2141 
oc AB 34 A840 bo 00228 MOVL PROT_VALUESCROJ, FAO_PARAMS : 
O3E 1 00231 43$:  BRW > 2104 
21 : D1 00234 44$:  CMPL RO, #33 > 2145 
oot Hen gt et | 
57 5 30 023 45$:  MOVB #23, TEMP_BYTE > 2149 
50 57 9A 0023F MOVZBL TEMP BYTE; RO > 2150 
50 00 6E * 09 2c i de movcS #0, TSP), #0, RO, TIME_TEMP ; 
DO AB £4 ag 9E 00249 MOVAB TIME_TEMP, TEMP_DESC+4 > 215 
cc AB 57 9B 0024E MOVZBW TEMPTBYTE, TEMP DESC > 215 
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:; Routine Size: 1578 bytes, Routine Base: 


| 


; 1905 618 1 
3; 1906 619 0O END ELUDOM 
| EXTRN LIBSSIGNAL, LIBSSTOP 
- PSECT SUMMARY 
F Name Bytes Attributes 
> FDLSOWN 168 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3 “FOLSPLIT 564 NOVEC,NOWRT, »NOEXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
|; “Ff DLSCODE 3176 NOVEC,NOWRT, » EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
E Library Statistics 
De ee ee Symbols -<------ Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 110 1 581 00:00.9 
| 
f 
E COMMAND QUALIFIERS : 
I; BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:FDLGEN/OBJ=OBJ$:FDLGEN MSRCS$:FDLGEN/UPDATE=(ENHS$:FDLGEN) 
; Size: 3176 code + 732 data bytes 
3 Run Time: 01:02. 
|; Elapsed Time: 02:59.2 
|; Lines/CPU Min: 499 
; Lexemes/CPU-Min: 17141 
> Memo oY Used: 527 pages 
3 — ation Complete 
| 


14. =3007 138 


-FDLSCODE + 063€ 


4 01: 341208 
4 12:31:1 
TSTL R 
BNEQ mS 
MOVAB P.A 
MOVL #1, 
RET 

CLRL RO 
RET 
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